home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD016a.dsk / SOFT.PALS.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  54 lines
  1. 10  REM  SOFT.PALS
  2. 20  TEXT : HOME : SPEED= 255
  3. 30  VTAB 3: HTAB 14: INVERSE : PRINT "           ": HTAB 14: PRINT " SOFT PALS ": HTAB 14: PRINT "           ": NORMAL 
  4. 40  PRINT : PRINT : HTAB 8: PRINT "1 = PURPOSE OF SOFT PALS"
  5. 50  PRINT : PRINT : HTAB 8: PRINT "2 = EXAMPLE SOFT PAL TOPICS"
  6. 60  PRINT : PRINT : HTAB 8: PRINT "3 = WHAT DO MY SOFT PALS SAY?"
  7. 70  PRINT : PRINT : HTAB 8: PRINT "4 = HOW TO SUBMIT TO SOFT PALS"
  8. 80  PRINT : PRINT : HTAB 8: PRINT "5 = BACK TO MAIN MENU"
  9. 90  PRINT : PRINT " WHICH ";: GET R$: PRINT R$
  10. 100  IF R$ = "1" GOTO 1000
  11. 110  IF R$ = "2" GOTO 2000
  12. 120  IF R$ = "3" GOTO 3000
  13. 130  IF R$ = "4" GOTO 4000
  14. 140  IF R$ = "5"  THEN  PRINT  CHR$(4);"RUN KICK.IT.OFF"
  15. 150  GOTO 20
  16. 1000  HOME : VTAB 3
  17. 1010  PRINT "   THE PURPOSE OF SOFT PALS IS TO GIVE"
  18. 1020  PRINT : PRINT "SUBSCRIBERS DIRECT INPUT INTO THE"
  19. 1030  PRINT : PRINT "SOFTDISK NETWORK."
  20. 1040  PRINT : PRINT : PRINT "(AND TO TAKE SOME WORK LOAD OFF SOFTY)"
  21. 1050  GOTO 9999
  22. 2000  HOME : VTAB 3
  23. 2010  PRINT "   THE FOLLOWING ARE EXAMPLES OF THE"
  24. 2020  PRINT : PRINT "KINDS OF TOPICS THAT WOULD BE"
  25. 2030  PRINT : PRINT "APPROPRIATE FOR SOFT PAL PROGRAMS:"
  26. 2040  PRINT : PRINT : HTAB 12: PRINT "PROGRAMMING TIPS"
  27. 2050  PRINT : PRINT "  PLEAS FOR HELP WITH COMPUTER PROBLEMS"
  28. 2060  PRINT : HTAB 8: PRINT "APPLE RELATED ANNOUNCEMENTS"
  29. 2070  PRINT : PRINT : PRINT "GENERAL INTEREST ITEMS ARE PREFERED."
  30. 2080  PRINT : PRINT "BUT SEE WHAT YOU CAN RUN BY SOFTY..."
  31. 2090  PRINT : PRINT "SOFTDISK IS NOT RIGID."
  32. 2500  GOTO 9999
  33. 3000  PRINT  CHR$(4)"RUN PAL.MENU"
  34. 4000  HOME : VTAB 2
  35. 4001  PRINT "SUBMIT SOFT PAL PROGRAMS IN THE SAME": PRINT 
  36. 4002  PRINT "MANNER THAT HARVEST PROGRAMS ARE": PRINT 
  37. 4004  PRINT "SUBMITTED.": PRINT 
  38. 4020  PRINT : PRINT "THERE ARE NO RIGID RULES FOR SOFT PAL": PRINT 
  39. 4030  PRINT "PROGRAMS BUT IN GENERAL THEY SHOULD BE"
  40. 4040  PRINT : PRINT "SHORT AND END BY RUNNING A PROGRAM"
  41. 4050  PRINT : PRINT "NAMED  'PAL.MENU'."
  42. 4060  GOSUB 9000
  43. 4070  HOME : VTAB 2
  44. 4080  PRINT "SOFT PAL PROGRAMS SHOULD BE NAMED IN": PRINT 
  45. 4090  PRINT "THE FOLLOWING WAY......": PRINT 
  46. 4100  PRINT "PAL.ZIP.LASTNAME.MONTH.YEAR.LETTER": PRINT 
  47. 4110  PRINT "FOR EXAMPLE.....": PRINT 
  48. 4120  PRINT "PAL.71108.SOFTY.OCT.82.A"
  49. 4130  PRINT "PAL.71108.SOFTY.OCT.82.B"
  50. 4140  PRINT "PAL.06107.GANZ.NOV.82.A"
  51. 4150  PRINT : PRINT "WOULD BE VALID SOFT PAL PROGRAM NAMES."
  52. 4500  GOTO 9999
  53. 9000  VTAB 23: HTAB 14: INVERSE : PRINT " HIT SPACE BAR ";: NORMAL : GET R$: PRINT R$: RETURN 
  54. 9999  GOSUB 9000: GOTO 20